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CONTROL DATA® OPERATING SYSTEMS 


NOS 1 for the CONTROL DATA® CYBER 

170 Models 171, 172, 173, 174, and 175; 

CYBER 70 Models 71, 72, 73, and 74; and 

6000 Series Computer Systems 


NOS/BE 1 for the CDC CYBER 170 Series! 

CYBER 70 Models 71, 72, 73, and 74; anl 

6000 Series Computer Systems 


LANGUAGE ELEMENTS 


BASIC CHARACTER SET 

Alphabetic: A thru Z 
Numeric: 0 thru 9 
Special: + , 


/ A 
( < 

; > 

$ ? 

= I 
: # 

' blank 

Any character available to the operating 
system can be used in data and string 
constants. 

VARIABLES 


character followed by a numeric character! 
Numeric variables are preset to zero befora 
program execution. 


String Variables 

A string variable consists of a single 
alphabetic character followed by a dollar 
sign ($) or a single alphabetic character anc 
a numeric character followed by a dollar 
sign. 


Subscripted Variables 

A numeric subscripted variable consists of a 
numeric variable followed by a subscript list] 
bounded by parenthesis. 


Numeric Variables 

A numeric variable consists of a single 
alphabetic character or a single alphabetic 


A string subscripted variable consists of a 
string variable followed by a subscripted list 
bounded by parenthesis. 


CONSTANTS 


Constant 

Form 

Integer 

in 

n Decimal digits 

Range 1.26501 x 10 322 »|n|*3.13152 x 10' 294 

Accurate to a maximum of 14 digits 

Decimal 

in. i.n in.n 

n Decimal digits 

Range L26501 x 10 322 *lnl*3.13152 x 10' 294 

Accurate to a maximum of 14 digits 

Exponential 

inEis in.nEis i.nEis in.Eis 
n * Decimal digits 

Eis Exponent 

s Base 10 scale factor 

Range 1.26501 x 10 322 *|n|*3.13152 x 10* 294 

Accurate to a maximum of 14 digits 

String 

"string" 

string String of alphanumeric characters. 

If the character " is to appear in the string, it must be specified by 
two consecutive " marks. 

A string can contain 0 to 131,070 6-bit characters or 0 to 65,535 

12-bit escape code characters. 



OPERATORS 


Symbol 

Meaning 

Arithmetic Operators 

a or ** 

Exponentiation. 

/ 

Division. 

* 

Multiplication. 

♦ 

Addition; unary plus. 

- 

Subtraction; unary minus. 

Relational Operators 

* 

Equal to. 

oorx 

Not equal to. 

> 

Greater than. 

> = or = > 

Greater than or equal to. 

< 

Less than. 

< = or = < 

Less than or equal to. 

Logical Operators | 

NOT 

Logical negation. 

AND 

Logical multiplication or intersection. 

OR 

Logical addition or union. 

String Operators ] 

* 

String concatenation. j 


CHANGE 


I stv TO na 1 
I na TO stv / 


CLOSE #ne 
DATA cl, c2, . . . 


DEF FNa 


(svl,sv2, 

(svl,sv2, 


,sv20)=nel 
,sv20) / 


DEF FN.$ 


,sv20)=se ) 
,sv20) ( 


/(chi).(ch3) )1 

J#ne,(chl), . . . ,(ch3)|J 


DIM ml(il, .. . ,i3),m2(il, . . . ,i3), . . . 
END 

FILE #nel=lfnl,#ne2=lfn2, ... 

FNEND 

FOR snv = nel TO ne2 [STEP ne3] 


GOSUB In 
GOTO In 


STATEMENT FORMS 

[ ] Enclosed elements are optional. 

{ } Only one element must be selected. 

. . . Repeat elements as needed. 


Terms in lowercase represent words or symbols supplied by the programmer. 


a Alphabetic identifier 

c Numeric string constant 

ch Any character 

e Expression, constant, or 

variable 

esub External subroutine 

name 

i Integer 

im Format image 

lfn File name 

In Line number 

m Matrix (one or two 

dimensional array) 
na Numeric array variable 


nc Numeric constant 

ne Numeric expression, 

constant or variable 
r Relational expression 

sc String constant 

se String expression, constant, 

or variable 

snv Simple numeric variable 
stm Executable statement 

stv String variable 

sv Simple variable 

v Variable identifier 

(numeric, string, or 
subscripted) 


APPEND #ne 
“*{?} 

CALL esub [(el,e2,... ,e20)] 


lfn 


file-param 


NORMAL 

ASCII 

NORMAL) 
ASCII I 


MODE=< 





INPUT [#ne,] vl,v2, . . . 
JUMP ne 


[LET] vl [=v2=v3, . . .]=e 


MARGIN (J™ 1 ’"' 2 } 


' m2 
m2 + m3 
I m2 - m3 
I m2 * m3 
1 (ne) * m2 
i INV(m2) 

I TRN(m2) 

ZER [(nel [,ne2 1)1 I 
CON |(nel [,ne2])J 
[ IDN[(nel[,ne2])] 


MAT READ [#ne,] ml,m2, . . . 
MAT PRINT [#ne] |uSING {'™’j 


MAT INPUT [#ne] ml,m2, . . . 
MAT WRITE #ne,ml,m2, . . 


NEXT svn 
NODATA [#ne,]ln 
ON ne GOSUB Ini, ln2,. . . 

ONne {™> 

□ NERR0R [{™,'n n }] 

PRINT [#ne][USING {jjMl 

' 2 <;>-••[{;}] 


READ [#ne,] vl,v2, . . . 



RESTORE #ne 
RETURN 
SET #nel,ne2 
SETDIGITS ne 
STOP 

WRITE #ne,el,e2,.. . 
:im 




















BASIC CONTROL STATEMENT 


FORMAT FIELD SPECIFICATION CHARACTERS 
INTRINSIC FUNCTIONS 

Legend: 


nc 

Numeric constant se 

String expression, 

ne 

Numeric expression, 

constant, or variable 


constant, or variable x 

Constant, variable, 

abr 

Abbreviation for ASCII 

function, or numeric 


character name 

expression 

ch 

Character [ ] 

Optional 

m 

Matrix 

Repeat as needed 


Function 

Form 

Comment 

Absolute value 

ABS(ne) 


ASCII code 

ASC(ch) 

ASC(abr) 


Arctangent 

ATN(ne) 

Range: -ir/2 to +»/2 

Character 

CHR$(ne) 

Range: 0»ne<127 

Time of day 

CLK(ne) 

Time in hours and fractions of an 
hour 

Time of day 

CLK$ 


One matrix 

CON [(nel [ ,ne2 ])] 


Cosine 

COS(ne) 

Angie ne is in radians 

Cotangent 

COT(ne) 

Angle ne is in radians 

DATE 

DAT$ 



DET 

Determinant of most recently 
inverted matrix 

Error statement 
line 

ESL(ne) 


Error statement 
message 

ESM(ne) 


Base e 

EXP(ne) 

e to power of ne 

Identity matrix 



Largest integer 

INT(ne) 

Largest ne 

Matrix inversion 

INV(m) 



LEN(se) 


Base 10 log 

LGE(ne) 

ne>0 

Current word 
position 

LOC(ne) 


Length of file 

LOF(ne) 

Length in words 

Natural log 

LOG(ne) 

ne>0 

Maximum 

MAX(nel,. . .ne20) 


Minimum 

MINKnel,. . .ne20) 


Next line 

NXL(x) 


number 




Function 

Form 

Comment 

Random number 

RND(ne) 

Number between 1 and 0 


ROF(nel) 

Rounds nel off to ne2 decimal 


ROF(nel, ne2) 

places 

Sign 

SGN(ne) 

1 if ne is positive 

0 if ne is zero 
-1 if ne is negative 

Sine 

SIN(ne) 

Angle ne is in radians 

Square root 

SQR(ne) 

neaO 

String 

STR$(ne) 

Resultant string formatted 

STR$( ne.se) 

according to se 

Substring 

SUBSTR(se,nel,ne2) 

nl beginning character, n2 ending 

SUBSTR(se,nel) 

character 

Tab 

TAB(ne) 


Tangent 

TANKne) 

Angle ne is in radians 

CPU elapsed 
time 

TIM(ne) 


Matrix 

Transposition 

TRN(m) 


User number 

USR$ 

Returns user number under NOS; 
returns USERNUM under NOS/BE 

Value 

VAL(se) 

String of numbers to numeric 
value 

Zero matrix 

ZER [(nel [ ,ne2 ])] 



FORMAT FIELD SPECIFICATION 
CHARACTERS 


Character 

Representation 

# 

Numeric character, alphabetic character, alphanumeric character 

$ 

Currency sign; floating when more than one 

• 

Check protect; leading blanks replaced by * 

< 

Left-justify string; right truncate 

> 

Right-justify string; left truncate 

A 

Floating point indicator 

+ 

Plus printed for positive values; minus for negative 

- 

Blank printed for positive values; minus for negative 

, 

Comma insertion 


[Decimal point insertion 

() 

Negative values enclosed in parentheses; positive values in blanks 

DB 

DB inserted for negative value; two blanks for positive 

CR 

CR inserted for negative value; two blanks for positive 


I) 

BASIC. 

BiASIC(parameter-list) 

AS omitted Source program and data files 
AS=0 contain non-ASCII characters. 

AS Source program and data files 

contain ASCII characters. 


0 omitted Do not produce relocatable 

B=Q binary. 

B Write relocatable binary on 

file BIN. 

B=lfn Write relocatable binary on 

file lfn. 


E L omitted Suppress page ejects of) output 
listing. 

BL Do not suppress page ejects on 
output listing. 

(t|B omitted Do not activate the debug and 

DB=0 trace features. 

DB Same as DB=B/DL. 

DB=B Force binary generation and/or 
program execution regardless 
of compilation errors. 

DB=DL Activate program tracing as 
controlled by REM TRACE de¬ 
bug lines. 

DB=TR Trace all statements. 


omitted Write compile-time error diag¬ 
nostics on the file specified by 
the L parameter. If L=0 then 
write diagnostics to OUTPUT. 

E Write compile time error diag¬ 

nostics on file ERRS 

E=lfn Write compile time error diag¬ 
nostics on file lfn. 


EL omitted Write warning diagnostics and 
| EL=W fatal compile-time diagnostics 

on the file specified by the 
E parameter. 

i EL=F Write only fatal compile-time 

diagnostics on the file speci¬ 
fied by the E parameter. 


GO omitted If no B parameter is specified, 
execute compiled program 
without loading. If B param¬ 
eter is specified, do not 
execute compiled program. 

GO Execute compiled program. 

GO=0 Do not execute compiled pro¬ 
gram. 


I=lfn 

omitted 

J 

J=lfn 

J=0 

K omitted 


L=lfn 


LO 


omitted 

LO 

LO=S 


LO=0 


LO=0/0 


LO=0 


PD=6 


PD 


PD=8 


PS=n 


Compile source program from 
file INPUT. 


Compile source program from 
file COMPILE. 

Compile source program from 
file lfn. 


Read data from default file 
INPUT. 

Read data from default file 
lfn. 

No default runtime data file. 


Write execution-time output 
on default output file OUT¬ 
PUT. 

Write execution-time output 
on default output file lfn. 

If batch job, write compile¬ 
time output on default output 
file OUTPUT. If interactive 
job, suppress compile-time 
output. 

Write compile-time output on 
file OUTPUT. 

Write compile-time output on 
file lfn. 

Suppress compile-time output. 

Write source listing on the file 
specified by the L parameter. 


Write object and source listing 
on the file specified by the L 
parameter. 

Write object listing only on the 
file specified by the L param¬ 
eter. 

Turn off all list options. 

Use the installation default 
print density on the files 
specified by the L and K 
parameters. 

Use a print density of 6 lines/- 
inch on the files specified by 
the L and K parameters. 

Use a print density of 8 lines/- 
inch on the files specified by 
the L and K parameters. 

If PD is not specified, use 
installation default page size 
for the file specified by the L 
parameter. If PD is specified, 
use PS=PD*(default PS)/(de- 
fault PD). 

Use a page size of n lines/- 
page; 4sns32768. 



























































